#!/usr/bin/perl
#
# usage:
#   wget -q -O - http://localhost/cgi-bin/limura/Game/current_point.cgi

require 'config.ph';

$jsonObj = {};
$jsonObj->{"unixtime"} = time();
@userName = &GetUserNames();
$jsonObj->{"point"} = {};
foreach $user (@userName){
	$jsonObj->{"point"}->{$user} = &GetPoint($user);
}

&PrintResult("undefined", $jsonObj);
#&PrintError($result);
